|
|  Russite Alternation
|  Ecrit par Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Alternation"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS  1
  WIDTH  5 * CW
  HEIGHT 9 * CH

  ZeroToWin 52 - CARDSIN$2

| Foundations

  FOUNDATION
    X 0
    Y 0
    DEAL 1,1
    DEALCARD c1
    JoinOffset 1
    FLAGS Join__DC
    ID 2
  END

  FOUNDATION
    X CW
    Y 0
    DEAL 1,1
    DEALCARD h13
    JoinOffset -1
    FLAGS Join__DC
    ID 2
  END

  FOUNDATION
    X 2 * CW 
    Y 0
    DEAL 1,1
    DEALCARD s1
    JoinOffset 1
    FLAGS Join__DC
    ID 2
  END

  FOUNDATION
    X 3 * CW
    Y 0
    DEAL 1,1
    DEALCARD d13
    JoinOffset -1
    FLAGS Join__DC
    ID 2
  END

| Stacks

  FOR column = 0 TO 3
      STACK
        X column * CW
        Y CH
        FIRST 1,13
        DragUpTo 1
        JoinOffset 0,1,2,3,4,5,6,7,8,9,10,11,12
        FLAGS ClickFly Join____ RotateJoin
        JoinFrom 4
        ID 1
      END
    END
  END

| Stock

  STACK
    X 4 * CW
    Y 0 
    DEALTO 4,1
    TAKEFROM 4,2
    DEAL 47,1
    MAX 0
    DragUpto 0
    FLAGS PaintCount
    ID 3
  END

| Waste

  STACK
    X 4 * CW
    Y CH 
    DEAL 1,1
    DRAGUPTO 1
    MAX 0
    FLAGS PaintLast Clickfly
    ID 4
  END

END
